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SUMMARY NOTATION 


The following rules apply to DUPL, DDL, DMCL, and 


DML syntax: 
a Underlined uppercase words are required if 
& the functions in which they appear are used. 
» . Double underlined words in DUPL commands 


must begin on a new line. 
is I] Nonunderlined uppercase words are optional. 


i Lowercase words represent generic terms 
that must be supplied by the user. 


t Brackets [ ] enclose words, phrases, or clauses 
that may be omitted if their functions are not 
required. 


. Braces { } indicate a choice of variant forms or 
functions. 


a Double vertical lines || || indicate a choice of 
one or more variant forms or functions. 


s An ellipsis ... indicates optional repetition of 
the preceding syntax element. 


a Periods, commas, semicolons, and spaces 
must be used as shown in the format. Where 
one space is allowed, more than one may be 
used, Periods are underlined in the format to 
distinguish them from ellipses. 


In jprocs, shaded terms are default parameters. 
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DUPL SYNTAX 
“DBMS Start-up 


DBMS SECTION. 
MAXIMUM NUMBER OF DBMS RUN-UNITS 


1S integer. @ 


JOURNAL FILE IS Jeunes) 
DUMMY 


[ACCESS-CONTROL KEY IS literal]. 
[MAXIMUM NUMBER OF IMS-THREADS - 

















1S integer. ] 
[MAXIMUM NUMBER OF IMS-TERMINALS 
1S integer. ] 
[SUPPRESS SUB-SCHEMA DATE TIME CHECK. ] 
DMCL SECTION: 
DMCL IS dmcl-name_ 
[ASSIGN integer DATA BASE BUFFERS. ] 
eer teres SPACE ed 
BUFFERS. 
[ALLOCATE integer KEEP LOCKS.] & 
pees NUMBER OF RUN- | 
1S integer. 


aeeee onirs NUMBER OF UPDATING 
RUN-UNITS IS integer. 


ATA BASE FILE IS Ifd-name 
[ACCESS-CONTROL KEY IS saci | 


Pgs BEFORE-LOOKS FILE IS (lfd-name 


} 
a 


DUMMY 
[ACCESS-CONTROL KEY IS literal) 
ON ERROR {STOP EF 
[ Sareea | 


E QUICK-BEFORE-LOOKS FILE 1S {lfd-name 


DUMMY 


[ACCESS-CONTROL KEY IS literal] 


(gear oor STOP He 
linaeee 
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DUPL SYNTAX (cont) 


CALC ROUTINE IS (ait 
CALCG1 


ACTIVATE DMCL. 
END. 
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DUPL SYNTAX .(cont) 


RESTORE FROM tfd-name[USING DMCL dmcl-name] * 


ON ERROR {STOP 
PROCEED 


RESTORE content-description 
[ ; RESTORE content-description ] _ 


where content-description is: 
{ PAGE \ page-number-1 


PAGES 
[ THRU page-number-2 } 


ALL AREAS 


aoe } area-name-1[ , area-name-2].. . 





DISPLAY HEADER FROM Ifd-name 


‘ON ERROR (STOP 
PROCEED. 


END UTILITY. 


NOTE: 


The DISPLAY command may be issued before the 
DMCL command or without it. 


Data Base Manual Recovery Utility 
(DBREC) 


DMCL IS dmcl-name. 


DATA BASE FILE IS Ifd-name 
[ACCESS-CONTROL KEY IS fiteral] . 


[QUICK-BEFORE-LOOKS BEFORE-LOOKS FILE IS 
~~~ Hfd-name[ ACCESS - CONTROL 


KEY IS literal] [KEEP]. ] 


[IMS QUICK-BEFORE-LOOKS FILE 
~~" 1§ Ifd-name [ACCESS-CONTROL KEY 
1S literal] [KEEP]. ] 


ACTIVATE DMCL. 
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DUPL SYNTAX (cont) 


FORWARD FUNAL 


wAfonmana:} yf Etat © 
date/time 


ALL AREAS 
AREA area-name-1 
{ AREAS } 








[ ,area-name-2]... 
USE JOURNAL FILE Ifd-name-1 
[ ACCESS-CONTROL KEY IS literal-1] 


[os ERROR { $10 
PROCEED} ‘7: 


END UTILITY, : 


‘o) This option pertains only to backward recovery. 


@ Date/time format is: 
‘yy-mm-dd/hh:mm:ss. fff" 


Data Base Page Dump and Alter Utility 


DBPAG) 
® 


DMCL IS dmel-name._ 


_~ 





DATA BASE FILE IS {fd-name 
[ACCESS-CONTROL KEY IS literal) . 


integer-1 BYTES OFFSET 
REPLACING literal-1 WITH literal-2 


ON ERROR { S108 %e 
[ PROCEED} 


C ROUTINE IS calc-module-name. 


lz 


CALC 
FP 


z 


FILE IS lfd-name MODULE module-name 
alle —| STOP I 
NT 


{ PRoceeD 








{ee AREA area-name-1 
AREAS } 
[ ,area-name-2... ] 





PAGE } page-number-1 
{ PAGES 
[THRU page-number-2 ] 
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DUPL SYNTAX {cont} 
IN (ALPHA FORMAT . 
HEX FORMAT 
BOTH FORMATS 


[“ ERROR (STOP he 
Tat 


PRINT CALC TT. } 
PAGE NUMBER 





0 


‘ F 
z [a ERROR ¢ STOP S 
{ proceeo }| 


AREA area-name USING literal-1 





END UTILITY. 


— 


Journal File Audit Utility (JFAUD) 


DMCL IS dmecl-name. 


REPORT DAY STATUS FROM [see aro) 
INITHAL 


[etna] 


USE JOURNAL FILE Ifd-name 
@ [ACCESS-CONTROL KEY IS literal] 


[os ERROR ; STOP i 
{ proceeo | 


REPORT UPDATES OF PAGE 
data-base-page-number [IN ALPHA FORMA | 





HEX FORMAT 
BOTH FORMATS 


FROM { date/time | [10 , date/time 
{inttiatt {FINAL } 


USE JOURNAL FILE Ifd-name 
[ACCESS-CONTROL KEY IS literal] 


ON ERROR , STOP Se 
{ Proceeo} 


0) Date/time format is: 
‘yy-mm-dd/hh:mm:ss. fff 
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DUPL SYNTAX (cont) 





PRINT JOURNAL aan TIT TT | 








BACKWARD 
FROM, date/time T0 date/time 
APT fEinaL } 
USE JOURNAL FILE Ifd-name 
[ACCESS-CONTROL KEY IS literal ] Ps 
QN ERROR (eras we e 
PROCEED 
PRINT JOURNAL RECORDS ¢ FORWARD | 
\ TAC RWARD 


IN (ALPHA FORMAT 
HEX FORMAT 
BOTH FORMATS 


| FOR (/ ALL AREAS 
{aeen poo 
AREAS 





[ , area-name-2].. . 


FROM (date/time Sen 
{imigiath FINAL } 


USE JOURNAL FILE Ifd-name 
[ACCESS-CONTROL KEY IS literal] 


ON ERROR STOP m4 
1 PROcELU) 


END UTILITY. 








Journal File Fix Utility (JFFIX) 


o 


MCL IS dmcl-name. 


BLE { TARE | JOURNAL input-lfd-name 
DISK 


[ACCESS-CONTROL KEY IS literal] 


[NEW JOURNAL 1S output-Ifd-name ] . 
END UTILITY. 


= 


| 
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DML ERROR STATUS CODES (cont) 
Cross-Reference of Possible Major 
and Minor Codes 


& FIND/FETCH 
2 oe 
|_| 
ai 
|_| 
lair 
= IMPART | 
| | [e ROLLBACK _| 





ele tee 
Dione [wo 


Dd 
<— 








mire 
Ww Er 


Ewes 
| 3 | 
| 4 | 
| 15 | 
| 16 | 
| 20 | 
pe 
| 23 
Ee 


OS) 
= 











af[wo 
Dem Rasy 





a on 
a wo 


Applicable combinations of major 


NOTE: 
For FIND/FETCH statement, numbers indicate formats for which error 
may occur. 
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DML ROLLBACK ERROR CODES 


~ Roltback Code 
(first or last 
two bytes of 


RB-ERROR-CODE) 


Explanation 














01 DMS internal error 

02 Data base write error 

03 Data base read error 

04 Program check or unrecoverable error (in e 
DBMS) ~ 

05 1/0 error in concurrent run unit ¥ 

06 Run-unit canceled (while in DBMS) 

07 Journal file write error 

08 Program termination before depart 

09 Invalid subschema 

10 Main storage not available 

11 Space inventory write error 

12 Space inventory read error 

13 Invalid verb number 

14 Area unavailable for update 

15 Record update conflict 

18 Resource wait time exceeded 

19 Deadlock avoidance 

20 Delete hierarchy error 

21 QBL file allocation error 

22 Maximum updating run-units exceeded for DMCL 

23 Rollback failure — QBL file was shut down 

24 QBL file read error 

25 QBL record error 

29 Requested QBL write rejected, IMS- 
QBL file shutdown 

30 Requested DMCL not loaded 

31 Requested subschema not found 

32 Insufficient main storage to load subschema 

33 Invalid subschema 

34 Invalid DBA name for DMCL 

35 Invalid DBA name for subschema @ 
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DML ROLLBACK ERROR CODES (cont) 


Roliback Code 
(first or last 

2 bytes of 
RB-ERROR-CODE) 


Explanation 





36 Invalid schema name for DMCL 

37 Invalid schema name for subschema 

38 Different DMCL not allowed on BIND 

39 Subschema compilation date/time 
mismatch 

40 IMS terminal limit exceeded 

43 Data base shut down by data base 
administrator 

45 Area shut down. Possible causes are: 
. DBA shut down an area; or 
. data base file had read/write or 

OPEN/CLOSE error. 

46 Application shut down 

47 Journal file shut down because of 
OPEN/CLOSE or read/write error under 
another task 

48 File access time-out 

51 Data base administrator inhibited new impart 

52 DBA inhibited new impart 

53 DBA inhibited new OPEN for the data base 

55 DBA inhibited new OPEN for an area 

56 Maximum run-units exceeded for DBMS 

57 Maximum run-units exceeded for DMCL 

58 {MS access inhibited to DMCL for this session 

59 IMS access inhibited to DBMS for this session 

67 IMS QBL file WRITE rejected 

68 IMS QBL file space exhausted 

88 Unidentified DMS error 

97 DMS SVC processing error 

99 First DBMS call not IMPART 
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RESERVED WORDS 


ACCESS-CONTROL 
ACTUAL 
AFTER-LOOKS 
ALIAS 
ALL 
ALLOCATE 
ALLOWED 
ALTER 
ALWAYS 

| AND 
APPLICATION 
ARE 
AREA 
AREA-CODE 
AREA-ID 
AREA-NAME 
AREA-WAIT-TIME 
AREAS 
ASCENDING (ASC)* 
ASSIGN 
AUTHOR 
AUTOMATIC (AUTO) 


BASE 
BEFORE-LOOKS 
BINARY (BIN) 
BIT 

BUFFERS 

BY 


CALC 

CALC-KEY 

CALL 

CALL-RETURN-ADDR 

CHAIN 

CHANGED 

CHARACTER (CHAR) 

CHECK 

CLOSE 

CODE 

COMMENT 

COMPILE 

COMPLEX 

COMPUTATIONAL (COMP) 
COMPUTATIONAL-1 (COMP-1) 
COMPUTATIONAL-2 (COMP-2) 
COMPUTATIONAL-3 (COMP-3) 
CONTAINS 

COPY 

CURRENCY 


CURRENT 


DATA 
DATA-BASE-KEY (DBKEY) 

DATE @ 
DBA-NAME 

DDLDML » 
DECIMAL (DEC) . 
DECODING © 
DEFINED » 
DELETE 

DEPART 

DEPENDING 
DESCENDING (DESC) 
DESCRIPTION 
DEVICE-MEDIA 

DIRECT 

DIRECT-DBK 
DISPLACEMENT 
DISPLAY 

DIVISION 
DMCA-LENGTH 
DMCL-NAME 
DMCLNTWK 
DMS-ABORT 
DMS-CURR-ERR 
DMS-DELE-ERR 
DMS-DUPL-ERR 
DMS-END-SET 
DMS-IMPART 
DMS-MEMB-ERR 
DMS-OPEN-ERR 
DMS-RECD-NFD 
DMS-ROLLBACK 
DMS-ROLLBACK-PARA 
DMS-STATUS 
DMS-SUCCESS 
DMS-SYST-ERR 
DMS-WARNING 
DMS90-BIND-PARA 
DMS90-DMCA 
DMS90-DMCA-INITIAL 
DMS90-IMPART-PARA 
DMS90-REC-BIND-PARA 
DUPLICATE (DUP) 
DUPLICATES (DUPS) 
DURING 

DYNAMIC 


EMPTY 
ENCODING 


"All reserved words in parentheses represent a valid 
alternate spelling for that reserved word. 
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